(read-file-name): Only split dir name when

default filename is missing.  (Bug#2585)

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 3407477b9172b90f326c93537f014500ad0d8e94..b72259528e6630c7ab9b0e9d2c91c4fc410022bc 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1159,9 +1159,11 @@ and `read-file-name-function'."
                         (completing-read prompt 'read-file-name-internal
                                          nil mustmatch insdef 'file-name-history
                                          default-filename)))
-                  ;; If DIR contains a file name, split it.
+                  ;; If DEFAULT-FILENAME not supplied and DIR contains
+                  ;; a file name, split it.
                   (let ((file (file-name-nondirectory dir)))
-                    (when (and default-filename (not (zerop (length file))))
+                    (when (and (not default-filename)
+                              (not (zerop (length file))))
                       (setq default-filename file)
                       (setq dir (file-name-directory dir)))
                     (if default-filename